inherited crdOtherPotr: TcrdOtherPotr
  Left = 914
  Top = 780
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1087#1088#1086#1095#1080#1093' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1077#1081
  ClientHeight = 114
  ClientWidth = 358
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label44: TLabel [0]
    Left = 23
    Top = 38
    Width = 132
    Height = 13
    Alignment = taRightJustify
    Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1077#1081
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel [1]
    Left = 26
    Top = 16
    Width = 129
    Height = 13
    Alignment = taRightJustify
    Caption = #1058#1080#1087' '#1087#1088#1086#1095#1080#1093' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1077#1081
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel [2]
    Left = 81
    Top = 60
    Width = 74
    Height = 13
    Alignment = taRightJustify
    Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1089
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel [3]
    Left = 251
    Top = 60
    Width = 12
    Height = 13
    Alignment = taRightJustify
    Caption = #1087#1086
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  inherited Panel1: TPanel
    Top = 87
    Width = 358
    TabOrder = 4
    inherited BitBtn1: TBitBtn
      Left = 151
    end
    inherited BitBtn2: TBitBtn
      Left = 253
    end
  end
  inherited ToolBar1: TToolBar
    Width = 358
    Height = 0
    Enabled = False
    TabOrder = 5
    Visible = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object lcbPotrType: TDBLookupComboboxEh [6]
    Left = 164
    Top = 14
    Width = 185
    Height = 19
    AlwaysShowBorder = True
    DataField = 'POTR_ID'
    DataSource = dsc_OtherPotr
    EditButtons = <>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Flat = True
    KeyField = 'ID'
    ListField = 'POTR_NAME'
    ListSource = dsc_PotrTypes
    ParentFont = False
    TabOrder = 0
    Visible = True
    OnChange = lcbPotrTypeChange
  end
  object dbnPotrCount: TDBNumberEditEh [7]
    Left = 164
    Top = 36
    Width = 185
    Height = 19
    AlwaysShowBorder = True
    DataField = 'POTR_COUNT'
    DataSource = dsc_OtherPotr
    DecimalPlaces = 0
    DisplayFormat = '####.##'
    EditButtons = <>
    Flat = True
    MaxValue = 10000.000000000000000000
    MinValue = 1.000000000000000000
    TabOrder = 1
    Visible = True
  end
  object dbtPotrBdate: TDBDateTimeEditEh [8]
    Left = 164
    Top = 58
    Width = 77
    Height = 19
    AlwaysShowBorder = True
    DataField = 'BDATE'
    DataSource = dsc_OtherPotr
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 2
    Visible = True
  end
  object dbtPotrEdate: TDBDateTimeEditEh [9]
    Left = 272
    Top = 58
    Width = 77
    Height = 19
    AlwaysShowBorder = True
    DataField = 'EDATE'
    DataSource = dsc_OtherPotr
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 3
    Visible = True
  end
  inherited ActionList1: TActionList
    Left = 32
    Top = 72
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crd_OtherPotr'
    Left = 68
    Top = 72
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Top = 72
  end
  object ds_PotrTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    POTR_NAME,'
      '    PRECIS'
      'FROM'
      '    RABONENT_POTRS '
      'order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 244
    Top = 8
    oFetchAll = True
    object ds_PotrTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_PotrTypesPOTR_NAME: TFIBStringField
      FieldName = 'POTR_NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_PotrTypesPRECIS: TFIBIntegerField
      FieldName = 'PRECIS'
    end
  end
  object ds_OtherPotr: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE ABONENT_POTRS'
      'SET '
      '    POTR_ID = :POTR_ID,'
      '    POTR_COUNT = :POTR_COUNT,'
      '    BDATE = :BDATE,'
      '    EDATE = :EDATE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO ABONENT_POTRS('
      '    ID,'
      '    ABONENT_ID,'
      '    POTR_ID,'
      '    POTR_COUNT,'
      '    BDATE,'
      '    EDATE'
      ')'
      'VALUES('
      '    :ID,'
      '    :ABONENT_ID,'
      '    :POTR_ID,'
      '    :POTR_COUNT,'
      '    :BDATE,'
      '    :EDATE'
      ')')
    RefreshSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    ABONENT_ID,'
      '    POTR_ID,'
      '    POTR_COUNT,'
      '    BDATE,'
      '    EDATE'
      'FROM'
      '    ABONENT_POTRS '
      'where id = :ppotr_id'
      ''
      '')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 104
    Top = 72
    object ds_OtherPotrID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_OtherPotrABONENT_ID: TFIBIntegerField
      FieldName = 'ABONENT_ID'
    end
    object ds_OtherPotrPOTR_ID: TFIBIntegerField
      FieldName = 'POTR_ID'
    end
    object ds_OtherPotrPOTR_COUNT: TFIBBCDField
      FieldName = 'POTR_COUNT'
      Size = 4
      RoundByScale = True
    end
    object ds_OtherPotrBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object ds_OtherPotrEDATE: TFIBDateField
      FieldName = 'EDATE'
    end
  end
  object dsc_PotrTypes: TDataSource
    DataSet = ds_PotrTypes
    Left = 280
    Top = 8
  end
  object dsc_OtherPotr: TDataSource
    DataSet = ds_OtherPotr
    Left = 136
    Top = 72
  end
end
